home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CONTRSRC.ZIP / SRC / BISMARCK / STARWAR / BUILDATA.PAS next >
Encoding:
Pascal/Delphi Source File  |  1994-11-19  |  2.4 KB  |  93 lines
  1. program buildtalbes;
  2. uses crt;
  3. var datafile : text;
  4.     x,y,i,j : word;
  5.     table : array [0..139] of byte;
  6.     pal : array [0..255,0..2] of byte;
  7.     pal2 : array [0..768] of byte;
  8.     depl : array [0..139] of word;
  9.     taille : array [0..139] of word;
  10.     plandep : array [0..139] of byte;
  11.     planfin : array [0..139] of byte;
  12.     rapport : array [0..139] of word;
  13.     prout   : real;
  14.     ch: char;
  15.     r,xx: real;
  16.  
  17. begin
  18.   assign (datafile,'datafile.inc');
  19.   rewrite(datafile);
  20.   write(datafile,'mul320 ');
  21.   for y:=0 to 19 do
  22.   begin
  23.     write(datafile,'WORD ');
  24.     for x:=0 to 9 do
  25.     begin
  26.       write(datafile,(y*10+x)*320);
  27.       if x<>9 then write(datafile,', ');
  28.     end;
  29.     writeln(datafile);
  30.   end;
  31.   writeln(datafile);
  32.   writeln(datafile);
  33.   clrscr;
  34.  
  35.   write(datafile,'mul420 ');
  36.   for y:=0 to 4 do
  37.   begin
  38.     write(datafile,'WORD ');
  39.     for x:=0 to 9 do
  40.     begin
  41.       write(datafile,(y*10+x)*420);
  42.       if x<>9 then write(datafile,', ');
  43.     end;
  44.     writeln(datafile);
  45.   end;
  46.   write(datafile,'WORD ',50*420,', ',51*420,', ',52*420);
  47.   writeln(datafile);
  48.   for x:= 0 to 255 do
  49.   begin
  50.     pal[x,0]:=0;
  51.     pal[x,1]:=0;
  52.     pal[x,2]:=0;
  53.   end;
  54.   prout:=1;
  55.   for y:=0 to 18 do
  56.   begin
  57.     pal[y*13+0,2]:=trunc(63*ln(prout)/ln(3.5));
  58.     pal[y*13+1,2]:=trunc(58*ln(prout)/ln(3.5));
  59.     pal[y*13+2,2]:=trunc(52*ln(prout)/ln(3.5));
  60.     pal[y*13+3,2]:=trunc(46*ln(prout)/ln(3.5));
  61.     pal[y*13+4,2]:=trunc(36*ln(prout)/ln(3.5));
  62.     pal[y*13+5,2]:=trunc(30*ln(prout)/ln(3.5));
  63.     pal[y*13+6,2]:=trunc(26*ln(prout)/ln(3.5));
  64.     pal[y*13+7,2]:=trunc(18*ln(prout)/ln(3.5));
  65.     pal[y*13+8,2]:=trunc(10*ln(prout)/ln(3.5));
  66.     pal[y*13+9,2]:=trunc(6*ln(prout)/ln(3.5));
  67.     pal[y*13+10,2]:=trunc(2*ln(prout)/ln(3.5));
  68.     pal[y*13+11,2]:=trunc(0*ln(prout)/ln(3.5));
  69.     pal[y*13+12,2]:=trunc(0*ln(prout)/ln(3.5));
  70.     prout:=prout+(3.5-1)/19;
  71.   end;
  72.  
  73.   for i:=0 to 255 do for j:=0 to 2 do pal2[i*3+j]:=pal[i,j];
  74.  
  75.   write(datafile,'pal BYTE ');
  76.   for j:=0 to 8 do write(datafile,pal2[j],', ');
  77.   writeln(datafile,pal2[9]);
  78.  
  79.   for i:=1 to 75 do
  80.   begin
  81.     write(datafile,'BYTE ');
  82.     for j:=0 to 8 do write(datafile,pal2[i*10+j],', ');
  83.     writeln(datafile,pal2[i*10+9]);
  84.   end;
  85.   write(datafile,'BYTE ');
  86.   for j:=0 to 4 do write(datafile,pal2[760+j],', ');
  87.   write(datafile,pal2[762],', ');
  88.   write(datafile,pal2[763],', ');
  89.   writeln(datafile,pal2[764]);
  90.  
  91.   close(datafile);
  92. end.
  93.